home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / sviewiv / arexx-scripts / exporttoimagefx.rx < prev    next >
Text File  |  1999-11-30  |  1KB  |  63 lines
  1. /*
  2.    $VER: ExportToImageFX.rx V9.00 (9.9.99)
  3.    © 1999 by Andreas R. Kleinert
  4.  
  5.    This exports a graphics (that is currently loaded
  6.    in SViewIV) to ImageFX. ImageFX must be running.
  7.  
  8.    USAGE: RX ExportToImageFX
  9.  
  10. */
  11.  
  12. address command
  13.  
  14. OPTIONS RESULTS
  15. SIGNAL ON ERROR
  16.  
  17. SVIIPORT = 'SViewII.rx'
  18. SVNGPORT = 'SViewNG.rx'
  19. SVPORT   = 'SuperView.rx'
  20.  
  21. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  22. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  23. IF ~SHOW('P',SVPORT) THEN DO
  24.   say "Could not locate ARexx port of SViewIV !"
  25.   CALL ErrorOut 0
  26. END
  27.  
  28. ADDRESS VALUE SVPORT
  29.  
  30. 'SAVE_TYPE=ILBM CmpByteRun1'
  31. 'SAVE='||'T:IFX_EXPORT'
  32.  
  33. address command wait 3
  34.  
  35. IF ~SHOW('P','IMAGEFX.1') THEN DO
  36.   say "Could not locate ARexx port of ImageFX !"
  37.   CALL ErrorOut 0
  38. END
  39.  
  40. address 'IMAGEFX.1'
  41.  
  42. Screen2Front
  43. LoadBuffer 'T:IFX_EXPORT' FORCE
  44. Uniconify
  45.  
  46. address command wait 3
  47. address command
  48.  
  49. Delete 'T:IFX_EXPORT'
  50. Delete 'T:IFX_EXPORT.info'
  51.  
  52. CALL ErrorOut 0
  53.  
  54.  
  55. /* Errorout procedure ----------------------- */
  56.  
  57. ErrorOut:
  58.         PARSE ARG ExitCode
  59.  
  60.         EXIT ExitCode
  61.  
  62.   END
  63.